home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CWIND.ARC / LIB.C < prev    next >
Text File  |  2019-04-13  |  10KB  |  422 lines
  1. /*
  2.     ├REATE AND MAINTAIN LIBRARY FILES.
  3.     ╠IBRARY FILE NAMES MUST END
  4.     WITH  ".L"
  5. */
  6.  
  7. #INCLUDE <STDIO.H>
  8. #INCLUDE <STRINGS.H>
  9.  
  10. #DEFINE  ═┴╪╠╔┬   200
  11. #DEFINE  ═┴╪╔─     20
  12. #DEFINE  ═┴╪╠╔╬┼   81
  13. #DEFINE  ╔╬╓┴╠╔─  255
  14. #DEFINE  ├╧═╠╔═╔╘   7
  15. #DEFINE  ├╟╥┼╘╒╥╬  13
  16. #DEFINE  ─┼╠┼╘┼    20
  17.  
  18. EXTERN CHAR ┬EEP╧N;
  19.  
  20. CHAR IDS[═┴╪╠╔┬][═┴╪╔─], FILES[═┴╪╠╔┬][═┴╪╔─], INBUF[═┴╪╠╔╬┼];
  21. CHAR GETCMD (), GETKEY (), TOUPPER (), CRSGET (), ╧PEN╫INDOW (), SIZE;
  22. UNSIGNED GETVALUE ();
  23.  
  24. MAIN()
  25. █
  26.     CHAR ╔NFO╔─, ╠IB╔─, ╔N╔─;
  27.     UNSIGNED N;
  28.     STATIC CHAR *COMMANDS[├╧═╠╔═╔╘] = █
  29.                     "╠╧┴─",   "╙┴╓┼",
  30.                     "├╠┼┴╥",  "─╔╙╨╠┴┘",
  31.                     "┴──",    "╥┼═╧╓┼",
  32.                     "╤╒╔╘"
  33.                     ▌;
  34.  
  35.     HIGHMEM (0XC400);       /* SET MEMORY BOUNDARIES */
  36.     ╔NIT╙CRN ();            /* INITIALIZE ├-╫INDOWS SYSTEM */
  37.     ╔NIT╫INDOWS ();         /* INITIALIZE WINDOW ALLOCATION TABLE */
  38.     ╔NIT╙ET (2);            /* GO INTO 80 COLUMN MODE */
  39.     IF ( !(╔NFO╔─ = ╧PEN╫INDOW (3, 14, 64, 9, "\22 ─EMO ╔NFO "))) █
  40.        ╥ESET╙CREEN ();
  41.        EXIT();
  42.        ▌
  43.     PRINTF ("\N╠IB ─EMO VERSION - 14/1/88");
  44.     PRINTF ("\N╠IB MODIFIED TO OPERATE UNDER ├-╫╔╬─╧╫╙ ╓1.11 BY ╥UBENS ┴BBOUD");
  45.     PRINTF ("\N\N╠╔┬ ╒TILITY ORIGINALLY BY ╨RO-╠INE ╙OFTWARE");
  46.     PRINTF ("\N├-╫╔╬─╧╫╙ ╓1.11 (C)1987 BY ╥UBENS ┴BBOUD.\N");
  47.     WAIT ();
  48.     IF ( !(╠IB╔─ = ╧PEN╫INDOW (10, 3, 40, 11, " ═AIN ═ENU "))) █
  49.        ╥ESET╙CREEN ();
  50.        EXIT();
  51.        ▌
  52.     SIZE = 0;
  53.     CLRSCRN();
  54.     PRINTF ("\N\N╠╧┴─    - ╠OAD LIBRARY\N");
  55.     PRINTF ("╙┴╓┼    - ╙AVE LIBRARY\N");
  56.     PRINTF ("├╠┼┴╥   - ├LEAR LIBRARY\N");
  57.     PRINTF ("─╔╙╨╠┴┘ - ─ISPLAY LIBRARY\N");
  58.     PRINTF ("┴──     - ┴DD MODULES TO LIBRARY\N");
  59.     PRINTF ("╥┼═╧╓┼  - ╥EMOVE MODULES FROM LIBRARY\N");
  60.     PRINTF ("╤╒╔╘    - ╤UIT\N");
  61.     IF ( !(╔N╔─ = ╧PEN╫INDOW (50, 8, 25, 12, "\22 ╔NPUT ╥EQUEST "))) █
  62.        ╥ESET╙CREEN ();
  63.        EXIT();
  64.        ▌
  65.     FOR (;;) █
  66.         PRINTF ("\N├MD: ");
  67.         SWITCH (GETCMD (INBUF, COMMANDS, 7, 7)) █
  68.                 CASE 0:
  69.                           LOAD();
  70.                           BREAK;
  71.                 CASE 1:
  72.                           SAVE();
  73.                           BREAK;
  74.                 CASE 2:
  75.                           SIZE = 0;
  76.                           BREAK;
  77.                 CASE 3:
  78.                           DISPLAY();
  79.                           BREAK;
  80.                 CASE 4:
  81.                           ADD();
  82.                           BREAK;
  83.                 CASE 5:
  84.                           REMOVE();
  85.                           BREAK;
  86.                 CASE 6:
  87.                           ╥ESET╙CREEN ();
  88.                           PUTCHAR ('\N');
  89.                           EXIT();
  90.                 DEFAULT:
  91.                           PRINTF ("\N** ╔NVALID ├HOICE\N");
  92.                 ▌
  93.         ▌
  94. ▌
  95.  
  96.  
  97. CLRSCRN()
  98. █
  99.     PUTCHAR ('ô');
  100. ▌
  101.  
  102.  
  103. ╞╔╠┼ OPENLIB (MODE)
  104. CHAR *MODE;
  105. █
  106.     ╞╔╠┼ F;
  107.  
  108.     PRINTF ("\N\NLIBRARY FILE NAME: ");
  109.     GETVALUE (INBUF, 1, 16, 0);
  110.     F = FOPEN (INBUF, MODE);
  111.     IF (F == ╬╒╠╠ ▀▀ FERROR()) █
  112.         F = ╬╒╠╠;
  113.         PRINTF ("\N\NCAN'T OPEN %S\N", INBUF);
  114.         WAIT();
  115.     ▌
  116.     RETURN F;
  117. ▌
  118.  
  119.  
  120. LOAD()
  121. █
  122.     CHAR ╠OAD╔─;
  123.     ╞╔╠┼ F;
  124.     UNSIGNED I;
  125.  
  126.     IF ( !(╠OAD╔─ = ╧PEN╫INDOW (20, 10, 40, 10, " ╠OAD ")))
  127.        RETURN;
  128.     IF ((F = OPENLIB ("R")) == ╬╒╠╠) █
  129.        ├LOSE╫INDOW (╠OAD╔─);
  130.        RETURN;
  131.        ▌
  132.     SIZE = GETC(F);
  133.     FOR (I = 0; I < SIZE; I++) █
  134.         GETID (IDS[I], F);
  135.         GETID (FILES[I], F);
  136.         ▌
  137.     FCLOSE(F);
  138.     ├LOSE╫INDOW (╠OAD╔─);
  139. ▌
  140.  
  141.  
  142. GETID (S, F)
  143. CHAR *S;
  144. ╞╔╠┼ F;
  145. █
  146.     WHILE (*S++ = GETC(F))
  147.        ;
  148. ▌
  149.  
  150.  
  151. SAVE()
  152. █
  153.     CHAR ╙AVE╔─;
  154.     ╞╔╠┼ F;
  155.     UNSIGNED I;
  156.  
  157.     IF ( !(╙AVE╔─ = ╧PEN╫INDOW (5, 5, 40, 10, " ╙AVE ")))
  158.        RETURN;
  159.     IF ((F = OPENLIB ("W")) == ╬╒╠╠) █
  160.        ├LOSE╫INDOW (╙AVE╔─);
  161.        RETURN;
  162.        ▌
  163.     PUTC (SIZE, F);
  164.     FOR (I = 0; I < SIZE; I++)
  165.         FPRINTF (F, "%S%C%S%C", IDS[I], 0, FILES[I], 0);
  166.     FCLOSE(F);
  167.     ├LOSE╫INDOW (╙AVE╔─);
  168. ▌
  169.  
  170.  
  171. WAIT()
  172. █
  173.     PRINTF ("\NHIT ╥┼╘╒╥╬ TO CONTINUE");
  174.     WHILE (GETCH() != '\N')
  175.         ;
  176. ▌
  177.  
  178.  
  179. DISPLAY()
  180. █
  181.     CHAR ─ISP╔─;
  182.     UNSIGNED I, LINE;
  183.  
  184.     IF (!(─ISP╔─ = ╧PEN╫INDOW (30, 1, 40, 23, " ─ISPLAY ")))
  185.        RETURN;
  186.     LINE = 1;
  187.     FOR (I = 0; I < SIZE; I++) █
  188.         IF (LINE == 1) █
  189.             CLRSCRN();
  190.             PRINTF ("\N%C%-20S%-19S\N\N", 18, "╔─┼╬╘╔╞╔┼╥", "╞╔╠┼");
  191.             LINE = 3;
  192.             ▌
  193.         PRINTF ("%-20S%-19S\N", IDS[I], FILES[I]);
  194.         LINE++;
  195.         IF (LINE == 21) █
  196.             WAIT();
  197.             LINE = 1;
  198.         ▌
  199.     ▌
  200.     WAIT();
  201.     ├LOSE╫INDOW (─ISP╔─);
  202. ▌
  203.  
  204.  
  205. GETCH()
  206. █
  207.     CHAR A, X, Y;
  208.  
  209.     DO
  210.         SYS (0XFFE4, &A, &X, &Y);
  211.     WHILE (A == 0);
  212.     RETURN A;
  213. ▌
  214.  
  215.  
  216. ADD()
  217. █
  218.     CHAR ┴DD╔─;
  219.     UNSIGNED N;
  220.     ╞╔╠┼ F;
  221.  
  222.     IF ( !(┴DD╔─ = ╧PEN╫INDOW (15, 7, 35, 14, " ┴DD ")))
  223.        RETURN;
  224.     PRINTF ("\NHIT ╥┼╘╒╥╬ WHEN DONE\N");
  225.     FOR (;;) █
  226.         PRINTF ("\NOBJECT FILE NAME: ");
  227.         GETVALUE (INBUF, 1, 16, 0);
  228.         IF (!ISALPHA(*INBUF)) █
  229.            ├LOSE╫INDOW (┴DD╔─);
  230.            RETURN;
  231.            ▌
  232.         F = FOPEN (INBUF, "R");
  233.         IF (F == ╬╒╠╠ ▀▀ FERROR())
  234.             PRINTF ("CAN'T OPEN %S\N", INBUF);
  235.         ELSE █
  236.             N = GETW(F);
  237.             WHILE (N--)
  238.                 GETC(F);
  239.             N = GETW(F);
  240.             WHILE (N--)
  241.                 GETW(F);
  242.             N = GETW(F);
  243.             WHILE (N-- && SIZE < ═┴╪╠╔┬) █
  244.                 GETID (IDS[SIZE], F);
  245.                 IF (ISALPHA(*IDS[SIZE]) && ISPRINT(IDS[SIZE][1]))
  246.                     STRCPY (FILES[SIZE++], INBUF);
  247.                 GETC(F);
  248.                 GETW(F);
  249.             ▌        
  250.             FCLOSE (F);
  251.             IF (SIZE == ═┴╪╠╔┬) █
  252.                 PRINTF ("\NLIBRARY IS FULL\N");
  253.                 WAIT();
  254.                 ├LOSE╫INDOW (┴DD╔─);
  255.                 RETURN;
  256.             ▌
  257.         ▌
  258.     ▌
  259. ▌
  260.  
  261.  
  262. REMOVE()
  263. █
  264.     CHAR ╥EMOVE╔─;
  265.     UNSIGNED I, J;
  266.  
  267.     IF ( !(╥EMOVE╔─ = ╧PEN╫INDOW (25, 12, 35, 10, " ╥EMOVE ")))
  268.        RETURN;
  269.     PRINTF ("\NHIT ╥┼╘╒╥╬ WHEN DONE\N");
  270.     FOR (;;) █
  271.         PRINTF ("\NFILE TO DELETE: ");
  272.         GETVALUE (INBUF, 1, 16, 0);
  273.         IF (!ISALPHA(*INBUF)) █
  274.            ├LOSE╫INDOW (╥EMOVE╔─);
  275.            RETURN;
  276.            ▌
  277.         FOR (I = 0; I < SIZE && STRCMP(FILES[I], INBUF) != 0; I++)
  278.             ;
  279.         IF (I == SIZE)
  280.             PRINTF ("\NFILE NOT FOUND\N");
  281.         ELSE █
  282.             WHILE (I < SIZE && STRCMP (FILES[I], INBUF) == 0) █
  283.                 FOR (J = I; J+1 < SIZE; J++) █
  284.                     STRCPY (FILES[J], FILES[J+1]);
  285.                     STRCPY (IDS[J], IDS[J+1]);
  286.                 ▌
  287.                 SIZE--;
  288.             ▌
  289.         ▌
  290.     ▌
  291. ▌
  292.  
  293.  
  294. /* ================================== */
  295. /*                                    */
  296. /* ╟ET COMMMAND AND RETURN COMMAND #  */
  297. /*                                    */
  298. /* ╙IZE INDICATES MAX INPUT LENGTH.   */
  299. /* ╠IMIT INDICATES NUMBER OF COMMANDS */
  300. /* IN THE CMPVAL COMMAND TABLE.       */
  301. /* ================================== */
  302.  
  303. CHAR GETCMD (INVAL, CMPVAL, SIZE, LIMIT)
  304. CHAR INVAL[], *CMPVAL[], LIMIT, SIZE;
  305. █
  306.     CHAR CTR;
  307.     UNSIGNED INDX;
  308.  
  309.     IF ((INDX = GETVALUE (INVAL, 1, SIZE, 1)) > 0) █
  310.        FOR (CTR = 0; CTR < LIMIT; CTR++) █
  311.            IF (!STRNCMP (INVAL, CMPVAL[CTR], INDX)) █
  312.               PRINTF ("%S", CMPVAL[CTR] + INDX);
  313.               RETURN (CTR);
  314.               ▌
  315.            ▌
  316.        ▌
  317.     RETURN (╔╬╓┴╠╔─);
  318. ▌
  319.  
  320.  
  321.  
  322. /* ================================== */
  323. /*                                    */
  324. /* ╟ET A STRING, OR NUMERICAL VALUE   */
  325. /*                                    */
  326. /* ═ODE == 0 RETURNS A POSITIVE INT.  */
  327. /* ═ODE == 1 RETURNS THE LENGTH OF    */
  328. /* THE STRING LEFT AT WORKAREA.       */
  329. /* ╙IZE SPECIFIES THE FIELD LENGTH    */
  330. /* ╒LCASE == 0 DISPLAYS VALUE AS IS   */
  331. /* ╒LCASE == 1 DISPLAYS AND CONVERTS  */
  332. /* THE CHARACTERS TO UPPER CASE.      */
  333. /* ================================== */
  334.  
  335. UNSIGNED GETVALUE (WORKAREA, MODE, SIZE, ULCASE)
  336. UNSIGNED MODE, SIZE, ULCASE;
  337. CHAR WORKAREA[];
  338. █
  339.     UNSIGNED CNTR = 0;
  340.     CHAR HOLD;
  341.  
  342.     WHILE ((HOLD = CRSGET ()) != ├╟╥┼╘╒╥╬) █
  343.           IF (HOLD != ─┼╠┼╘┼) █
  344.              IF (CNTR < SIZE) █
  345.                 IF (MODE == 0) █
  346.                    IF (ISDIGIT (HOLD) && CNTR < SIZE) █
  347.                       PUTCHAR (HOLD);
  348.                       WORKAREA[CNTR++] = HOLD;
  349.                       ▌
  350.                    ▌
  351.                 ELSE █
  352.                    WORKAREA[CNTR++] = (ULCASE ? (HOLD = TOUPPER (HOLD)) : HOLD);
  353.                    PUTCHAR (HOLD);
  354.                    ▌
  355.                 ▌
  356.              ▌
  357.           ELSE █
  358.              IF (CNTR > 0) █
  359.                 PRINTF ("%C %C", 157, 157);
  360.                 CNTR--;
  361.                 ▌
  362.              ▌
  363.           ▌
  364.     WORKAREA[CNTR] = '\0';
  365.     IF (MODE == 0)
  366.        RETURN ((UNSIGNED) (ATOI (WORKAREA)));
  367.     ELSE
  368.        RETURN ((UNSIGNED) CNTR);
  369. ▌
  370.  
  371.  
  372.  
  373. /* ================================== */
  374. /*                                    */
  375. /* ├HARACTER ╟┼╘, WITH CURSOR         */
  376. /*                                    */
  377. /* ================================== */
  378.  
  379. CHAR CRSGET ()
  380. █
  381.    CHAR CH, DUMMY;
  382.  
  383.    DO █
  384.       SYS (0XFFE4, &CH, &DUMMY, &DUMMY);
  385.       IF (CH  == ├╟╥┼╘╒╥╬ ▀▀ CH == ─┼╠┼╘┼)
  386.          BREAK;
  387.       PRINTF ("ñ%C %C", 157, 157); 
  388.       ▌
  389.    WHILE (!(ISALNUM (CH) ▀▀ ISSPACE (CH) ▀▀ ISPUNCT (CH) ▀▀ (CH > 159 && CH < 224)));
  390.    RETURN (CH);
  391. ▌
  392.  
  393.  
  394.  
  395. /* ================================== */
  396. /*                                    */
  397. /* ╬ON-WAITING CHARACTER ╟┼╘          */
  398. /*                                    */
  399. /* ================================== */
  400.  
  401. CHAR GETKEY ()
  402. █
  403.     CHAR A, DUMMY;
  404.  
  405.     SYS (0XFFE4, &A, &DUMMY, &DUMMY);
  406.     RETURN (A);
  407. ▌
  408.  
  409.  
  410.  
  411. /* ================================== */
  412. /*                                    */
  413. /* ├ASE CONVERSION ROUTINES           */
  414. /*                                    */
  415. /* ================================== */
  416.  
  417. CHAR TOUPPER (CNVRT)
  418. CHAR CNVRT;
  419. █
  420.     RETURN (((ISLOWER (CNVRT)) ? (CNVRT + 128) : CNVRT));
  421. ▌
  422.